100 REM* BOUNCING BALL SIMULATION *
110 :
120 YMAX=237: XMAX=327
130 FV=1.4 :REM FORWARD VELOCITY
140 UV=100 :REM INITIAL UPWARD VELOCITY
150 Y1=0   :REM Y START POSITION
160 X=10   :REM X START POSITION
170 G=-32.2:REM GRAVITY IN FEET/S/S
180 DC=.9  :REM ELASTICITY OF "BALL"
190 T=0    :REM TIME STARTS AT 0
200 :
210 GOSUB 410 'CREATE SPRITE SHAPE
220 :
230 VIC=53248     :REM VIC VIDEO CHIP
240 POKE VIC+21,1 :REM ENABLE SPRITE 0
250 POKE 2040,14  :REM SPRITE SHAPE
260 SX=VIC: SY=VIC+1: XHI=VIC+16
270 :
280 :
290 REM-- MAIN LOOP --
300 X=X+FV
310 Y=Y1 + UV*T +.5*G*(T*T)
320 IF Y<Y1 THEN Y=Y1:T=0:UV=UV*DC
330 POKE SX,X AND 255:POKE XHI,-(X>256)
340 POKE SY,YMAX-Y
350 T=T+.2
360 IF X<=XMAX THEN 300
370 END
380 :
390 :
400 REM** CREATE SPRITE SHAPE AT 896 **
410 FORI=896TO959:POKEI,0:NEXT
420 FORI=925TO935STEP3:READA:POKEI,A:NEXT
430 DATA 24,126,126,24
440 RETURN